home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / util / text / xes.lha / XES / REXX / Compile.xdme < prev    next >
Text File  |  1995-08-01  |  508b  |  24 lines
  1. /* $VER: Compile.xdme 1.0 (01 Aug 1995) */
  2. /* Copyright © 1995 Fergus Duniho */
  3.  
  4. OPTIONS RESULTS
  5. ADDRESS 'XDME.1'
  6. 'rxresult $filename'
  7. F = result
  8.  
  9. D = Lastpos(".", F)
  10. N = '"' || Delstr(F, D) || '"'
  11. Ext = Delstr(F, 1, D)
  12. F = '"' || F || '"'
  13.  
  14. SELECT
  15.     WHEN Ext = "c" THEN C = "bin:gcc" F "-Wall -o" N
  16.     WHEN Ext = "cc" THEN C = "bin:gcc" F "-Wall -lg++ -o" N
  17.     WHEN Ext = "e" THEN C = "EC >t:err" N
  18.     OTHERWISE EXIT
  19. END
  20. C = '(' || C || ')'
  21. 'title' C
  22. 'execute' C
  23. 'title (Compiling finished or halted.)'
  24.